home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO066.dsk / SYSUTIL.SYSTEM.asm < prev    next >
Assembly Source File  |  2012-02-16  |  10KB  |  419 lines
  1. B800- A9 00     LDA #$00
  2. B802- 85 FC     STA $FC
  3. B804- A9 20     LDA #$20
  4. B806- 85 FD     STA $FD
  5. B808- A9 00     LDA #$00
  6. B80A- 85 FE     STA $FE
  7. B80C- A9 B8     LDA #$B8
  8. B80E- 85 FF     STA $FF
  9. B810- 20 E9 22  JSR $22E9
  10. B813- 4C 16 B8  JMP $B816
  11. B816- 20 5A B9  JSR $B95A
  12. B819- 20 18 B9  JSR $B918
  13. B81C- 20 DC BA  JSR $BADC
  14. B81F- 20 00 BF  JSR $BF00
  15. B822- C8        INY
  16. B823- B8        CLV
  17. B824- B8        CLV
  18. B825- 90 03     BCC $B82A
  19. B827- 4C 15 BA  JMP $BA15
  20. B82A- A9 04     LDA #$04
  21. B82C- 8D BE B8  STA $B8BE
  22. B82F- AD BD B8  LDA $B8BD
  23. B832- 8D BF B8  STA $B8BF
  24. B835- 20 00 BF  JSR $BF00
  25. B838- CA        DEX
  26. B839- BE B8 90  LDX $90B8,Y
  27. B83C- 03        ???
  28. B83D- 4C 15 BA  JMP $BA15
  29. B840- A9 01     LDA #$01
  30. B842- 8D BE B8  STA $B8BE
  31. B845- 20 00 BF  JSR $BF00
  32. B848- CC BE B8  CPY $B8BE
  33. B84B- 90 03     BCC $B850
  34. B84D- 4C 15 BA  JMP $BA15
  35. B850- 20 00 0E  JSR $0E00
  36. B853- 20 93 BA  JSR $BA93
  37. B856- AD 31 BF  LDA $BF31
  38. B859- C9 08     CMP #$08
  39. B85B- 90 06     BCC $B863
  40. B85D- 20 00 BF  JSR $BF00
  41. B860- C5 8F     CMP $8F
  42. B862- BA        TSX
  43. B863- A9 CD     LDA #$CD
  44. B865- 8D B9 B8  STA $B8B9
  45. B868- A9 B8     LDA #$B8
  46. B86A- 8D BA B8  STA $B8BA
  47. B86D- 20 00 BF  JSR $BF00
  48. B870- C8        INY
  49. B871- B8        CLV
  50. B872- B8        CLV
  51. B873- 90 03     BCC $B878
  52. B875- 4C 15 BA  JMP $BA15
  53. B878- A9 04     LDA #$04
  54. B87A- 8D BE B8  STA $B8BE
  55. B87D- A9 09     LDA #$09
  56. B87F- 8D C1 B8  STA $B8C1
  57. B882- AD BD B8  LDA $B8BD
  58. B885- 8D BF B8  STA $B8BF
  59. B888- 20 00 BF  JSR $BF00
  60. B88B- CA        DEX
  61. B88C- BE B8 90  LDX $90B8,Y
  62. B88F- 03        ???
  63. B890- 4C 15 BA  JMP $BA15
  64. B893- A9 01     LDA #$01
  65. B895- 8D BE B8  STA $B8BE
  66. B898- 20 00 BF  JSR $BF00
  67. B89B- CC BE B8  CPY $B8BE
  68. B89E- 90 03     BCC $B8A3
  69. B8A0- 4C 15 BA  JMP $BA15
  70. B8A3- A9 00     LDA #$00
  71. B8A5- 8D F2 03  STA $03F2
  72. B8A8- A9 09     LDA #$09
  73. B8AA- 8D F3 03  STA $03F3
  74. B8AD- 49 A5     EOR #$A5
  75. B8AF- 8D F4 03  STA $03F4
  76. B8B2- 8D 10 C0  STA $C010
  77. B8B5- 4C 00 09  JMP $0900
  78. B8B8- 03        ???
  79. B8B9- C6 B8     DEC $B8
  80. B8BB- 00        BRK
  81. B8BC- BB        ???
  82. B8BD- 00        BRK
  83. B8BE- 04        ???
  84. B8BF- 00        BRK
  85. B8C0- 00        BRK
  86. B8C1- 0E 00 B0  ASL $B000
  87. B8C4- 00        BRK
  88. B8C5- 00        BRK
  89. B8C6- 06 D5     ASL $D5
  90. B8C8- D4        ???
  91. B8C9- C9 CC     CMP #$CC
  92. B8CB- AE B1 06  LDX $06B1
  93. B8CE- D5 D4     CMP $D4,X
  94. B8D0- C9 CC     CMP #$CC
  95. B8D2- AE B0 40  LDX $40B0
  96. B8D5- 00        BRK
  97. B8D6- 00        BRK
  98. B8D7- 00        BRK
  99. B8D8- 00        BRK
  100. B8D9- 00        BRK
  101. B8DA- 00        BRK
  102. B8DB- 00        BRK
  103. B8DC- 00        BRK
  104. B8DD- 00        BRK
  105. B8DE- 00        BRK
  106. B8DF- 00        BRK
  107. B8E0- 00        BRK
  108. B8E1- 00        BRK
  109. B8E2- 00        BRK
  110. B8E3- 00        BRK
  111. B8E4- 00        BRK
  112. B8E5- 00        BRK
  113. B8E6- 00        BRK
  114. B8E7- 00        BRK
  115. B8E8- 00        BRK
  116. B8E9- 00        BRK
  117. B8EA- 00        BRK
  118. B8EB- 00        BRK
  119. B8EC- 00        BRK
  120. B8ED- 00        BRK
  121. B8EE- 00        BRK
  122. B8EF- 00        BRK
  123. B8F0- 00        BRK
  124. B8F1- 00        BRK
  125. B8F2- 00        BRK
  126. B8F3- 00        BRK
  127. B8F4- 00        BRK
  128. B8F5- 00        BRK
  129. B8F6- 00        BRK
  130. B8F7- 00        BRK
  131. B8F8- 00        BRK
  132. B8F9- 00        BRK
  133. B8FA- 00        BRK
  134. B8FB- 00        BRK
  135. B8FC- 00        BRK
  136. B8FD- 00        BRK
  137. B8FE- 00        BRK
  138. B8FF- 00        BRK
  139. B900- 00        BRK
  140. B901- 00        BRK
  141. B902- 00        BRK
  142. B903- 00        BRK
  143. B904- 00        BRK
  144. B905- 00        BRK
  145. B906- 00        BRK
  146. B907- 00        BRK
  147. B908- 00        BRK
  148. B909- 00        BRK
  149. B90A- 00        BRK
  150. B90B- 00        BRK
  151. B90C- 00        BRK
  152. B90D- 00        BRK
  153. B90E- 00        BRK
  154. B90F- 00        BRK
  155. B910- 00        BRK
  156. B911- 00        BRK
  157. B912- 00        BRK
  158. B913- 00        BRK
  159. B914- 00        BRK
  160. B915- 01 D4     ORA ($D4,X)
  161. B917- B8        CLV
  162. B918- AC 80 02  LDY $0280
  163. B91B- B9 80 02  LDA $0280,Y
  164. B91E- C9 2F     CMP #$2F
  165. B920- F0 05     BEQ $B927
  166. B922- 88        DEY
  167. B923- 10 F6     BPL $B91B
  168. B925- 80        ???
  169. B926- 16 88     ASL $88,X
  170. B928- 8C D4 B8  STY $B8D4
  171. B92B- B9 80 02  LDA $0280,Y
  172. B92E- 99 D4 B8  STA $B8D4,Y
  173. B931- 88        DEY
  174. B932- D0 F7     BNE $B92B
  175. B934- 20 00 BF  JSR $BF00
  176. B937- C6 15     DEC $15
  177. B939- B9 90 01  LDA $0190,Y
  178. B93C- 00        BRK
  179. B93D- 60        RTS
  180. B93E- 6C 36     JMP ($36)
  181. B940- 00        BRK
  182. B941- 8E 7B 05  STX $057B
  183. B944- 84 25     STY $25
  184. B946- 20 56 B9  JSR $B956
  185. B949- A0 00     LDY #$00
  186. B94B- B1 F0     LDA ($F0),Y
  187. B94D- F0 06     BEQ $B955
  188. B94F- 20 3E B9  JSR $B93E
  189. B952- C8        INY
  190. B953- 80        ???
  191. B954- F6 60     INC $60,X
  192. B956- 20 22 FC  JSR $FC22
  193. B959- 60        RTS
  194. B95A- A9 0D     LDA #$0D
  195. B95C- 20 00 C3  JSR $C300
  196. B95F- A0 09     LDY #$09
  197. B961- A2 1C     LDX #$1C
  198. B963- A9 9C     LDA #$9C
  199. B965- 85 F0     STA $F0
  200. B967- A9 B9     LDA #$B9
  201. B969- 85 F1     STA $F1
  202. B96B- 20 41 B9  JSR $B941
  203. B96E- A2 19     LDX #$19
  204. B970- A0 0B     LDY #$0B
  205. B972- A9 B6     LDA #$B6
  206. B974- 85 F0     STA $F0
  207. B976- A9 B9     LDA #$B9
  208. B978- 85 F1     STA $F1
  209. B97A- 20 41 B9  JSR $B941
  210. B97D- A0 0E     LDY #$0E
  211. B97F- A2 14     LDX #$14
  212. B981- A9 D7     LDA #$D7
  213. B983- 85 F0     STA $F0
  214. B985- A9 B9     LDA #$B9
  215. B987- 85 F2     STA $F2
  216. B989- 20 41 B9  JSR $B941
  217. B98C- A0 0F     LDY #$0F
  218. B98E- A2 1F     LDX #$1F
  219. B990- A9 01     LDA #$01
  220. B992- 85 F0     STA $F0
  221. B994- A9 BA     LDA #$BA
  222. B996- 85 F2     STA $F2
  223. B998- 20 41 B9  JSR $B941
  224. B99B- 60        RTS
  225. B99C- C1 F0     CMP ($F0,X)
  226. B99E- F0 EC     BEQ $B98C
  227. B9A0- E5 A0     SBC $A0
  228. B9A2- C9 C9     CMP #$C9
  229. B9A4- A0 D3     LDY #$D3
  230. B9A6- F9 F3 F4  SBC $F4F3,Y
  231. B9A9- E5 ED     SBC $ED
  232. B9AB- A0 D5     LDY #$D5
  233. B9AD- F4        ???
  234. B9AE- E9 EC     SBC #$EC
  235. B9B0- E9 F4     SBC #$F4
  236. B9B2- E9 E5     SBC #$E5
  237. B9B4- F3        ???
  238. B9B5- 00        BRK
  239. B9B6- D6 E5     DEC $E5,X
  240. B9B8- F2        ???
  241. B9B9- F3        ???
  242. B9BA- E9 EF     SBC #$EF
  243. B9BC- EE A0 B3  INC $B3A0
  244. B9BF- AE B1 A0  LDX $A0B1
  245. B9C2- A0 A0     LDY #$A0
  246. B9C4- A0 A0     LDY #$A0
  247. B9C6- A0 A0     LDY #$A0
  248. B9C8- A0 C6     LDY #$C6
  249. B9CA- E5 E2     SBC $E2
  250. B9CC- F2        ???
  251. B9CD- F5 E1     SBC $E1,X
  252. B9CF- F2        ???
  253. B9D0- F9 A0 B1  SBC $B1A0,Y
  254. B9D3- B9 B8 B8  LDA $B8B8,Y
  255. B9D6- 00        BRK
  256. B9D7- C3        ???
  257. B9D8- EF        ???
  258. B9D9- F0 F9     BEQ $B9D4
  259. B9DB- F2        ???
  260. B9DC- E9 E7     SBC #$E7
  261. B9DE- E8        INX
  262. B9DF- F4        ???
  263. B9E0- A0 C1     LDY #$C1
  264. B9E2- F0 F0     BEQ $B9D4
  265. B9E4- EC E5 A0  CPX $A0E5
  266. B9E7- C3        ???
  267. B9E8- EF        ???
  268. B9E9- ED F0 F5  SBC $F5F0
  269. B9EC- F4        ???
  270. B9ED- E5 F2     SBC $F2
  271. B9EF- AC A0 C9  LDY $C9A0
  272. B9F2- EE E3 AE  INC $AEE3
  273. B9F5- A0 A0     LDY #$A0
  274. B9F7- B1 B9     LDA ($B9),Y
  275. B9F9- B8        CLV
  276. B9FA- B3        ???
  277. B9FB- AD B1 B9  LDA $B9B1
  278. B9FE- B8        CLV
  279. B9FF- B8        CLV
  280. BA00- 00        BRK
  281. BA01- C1 EC     CMP ($EC,X)
  282. BA03- EC A0 D2  CPX $D2A0
  283. BA06- E9 E7     SBC #$E7
  284. BA08- E8        INX
  285. BA09- F4        ???
  286. BA0A- F3        ???
  287. BA0B- A0 D2     LDY #$D2
  288. BA0D- E5 F3     SBC $F3
  289. BA0F- E5 F2     SBC $F2
  290. BA11- F6 E5     INC $E5,X
  291. BA13- E4 00     CPX $00
  292. BA15- A9 0C     LDA #$0C
  293. BA17- 20 3E B9  JSR $B93E
  294. BA1A- AE 7B 05  LDX $057B
  295. BA1D- A4 25     LDY $25
  296. BA1F- A9 46     LDA #$46
  297. BA21- 85 F0     STA $F0
  298. BA23- A9 BA     LDA #$BA
  299. BA25- 85 F2     STA $F2
  300. BA27- 20 41 B9  JSR $B941
  301. BA2A- A9 6E     LDA #$6E
  302. BA2C- 85 F0     STA $F0
  303. BA2E- A9 BA     LDA #$BA
  304. BA30- 85 F2     STA $F2
  305. BA32- 20 41 B9  JSR $B941
  306. BA35- AD 00 C0  LDA $C000
  307. BA38- 10 FB     BPL $BA35
  308. BA3A- 2C 10 C0  BIT $C010
  309. BA3D- 9C        ???
  310. BA3E- 35 C0     AND $C0,X
  311. BA40- 20 00 BF  JSR $BF00
  312. BA43- 65 88     ADC $88
  313. BA45- BA        TSX
  314. BA46- D5 EE     CMP $EE,X
  315. BA48- E1 E2     SBC ($E2,X)
  316. BA4A- EC E5 A0  CPX $A0E5
  317. BA4D- F4        ???
  318. BA4E- EF        ???
  319. BA4F- A0 EC     LDY #$EC
  320. BA51- E1 F5     SBC ($F5,X)
  321. BA53- EE E3 E8  INC $E8E3
  322. BA56- A0 F4     LDY #$F4
  323. BA58- E8        INX
  324. BA59- E5 A0     SBC $A0
  325. BA5B- D3        ???
  326. BA5C- F9 F3 F4  SBC $F4F3,Y
  327. BA5F- E5 ED     SBC $ED
  328. BA61- A0 D5     LDY #$D5
  329. BA63- F4        ???
  330. BA64- E9 EC     SBC #$EC
  331. BA66- E9 F4     SBC #$F4
  332. BA68- E9 E5     SBC #$E5
  333. BA6A- F3        ???
  334. BA6B- AE 0D 00  LDX $000D
  335. BA6E- D0 F2     BNE $BA62
  336. BA70- E5 F3     SBC $F3
  337. BA72- F3        ???
  338. BA73- A0 D2     LDY #$D2
  339. BA75- C5 D4     CMP $D4
  340. BA77- D5 D2     CMP $D2,X
  341. BA79- CE A0 F4  DEC $F4A0
  342. BA7C- EF        ???
  343. BA7D- A0 E3     LDY #$E3
  344. BA7F- EF        ???
  345. BA80- EE F4 E9  INC $E9F4
  346. BA83- EE F5 E5  INC $E5F5
  347. BA86- AE 00 04  LDX $0400
  348. BA89- 00        BRK
  349. BA8A- 00        BRK
  350. BA8B- 00        BRK
  351. BA8C- 00        BRK
  352. BA8D- 00        BRK
  353. BA8E- 00        BRK
  354. BA8F- 02        ???
  355. BA90- 00        BRK
  356. BA91- 93        ???
  357. BA92- BA        TSX
  358. BA93- A9 00     LDA #$00
  359. BA95- 8D FD 08  STA $08FD
  360. BA98- AE 31 BF  LDX $BF31
  361. BA9B- BD 32 BF  LDA $BF32,X
  362. BA9E- C9 BF     CMP #$BF
  363. BAA0- F0 08     BEQ $BAAA
  364. BAA2- C9 BE     CMP #$BE
  365. BAA4- F0 04     BEQ $BAAA
  366. BAA6- CA        DEX
  367. BAA7- 10 F2     BPL $BA9B
  368. BAA9- 60        RTS
  369. BAAA- EC 31 BF  CPX $BF31
  370. BAAD- F0 09     BEQ $BAB8
  371. BAAF- BD 33 BF  LDA $BF33,X
  372. BAB2- 9D 32 BF  STA $BF32,X
  373. BAB5- E8        INX
  374. BAB6- D0 F2     BNE $BAAA
  375. BAB8- A9 00     LDA #$00
  376. BABA- 9D 32 BF  STA $BF32,X
  377. BABD- CE 31 BF  DEC $BF31
  378. BAC0- AD 26 BF  LDA $BF26
  379. BAC3- 8D FE 08  STA $08FE
  380. BAC6- AD 27 BF  LDA $BF27
  381. BAC9- 8D FF 08  STA $08FF
  382. BACC- AD 20 BF  LDA $BF20
  383. BACF- 8D 26 BF  STA $BF26
  384. BAD2- AD 21 BF  LDA $BF21
  385. BAD5- 8D 27 BF  STA $BF27
  386. BAD8- EE FD 08  INC $08FD
  387. BADB- 60        RTS
  388. BADC- 20 00 BF  JSR $BF00
  389. BADF- 42        ???
  390. BAE0- E3        ???
  391. BAE1- BA        TSX
  392. BAE2- 60        RTS
  393. BAE3- 00        BRK
  394. BAE4- 33        ???
  395. BAE5- 00        BRK
  396. BAE6- 00        BRK
  397. BAE7- 40        RTI
  398. BAE8- 40        RTI
  399. BAE9- A0 00     LDY #$00
  400. BAEB- AE 0D 23  LDX $230D
  401. BAEE- F0 0E     BEQ $BAFE
  402. BAF0- B1 FC     LDA ($FC),Y
  403. BAF2- 91 FE     STA ($FE),Y
  404. BAF4- C8        INY
  405. BAF5- D0 F9     BNE $BAF0
  406. BAF7- E6 FD     INC $FD
  407. BAF9- E6 FF     INC $FF
  408. BAFB- CA        DEX
  409. BAFC- D0 F2     BNE $BAF0
  410. BAFE- AE 0C 23  LDX $230C
  411. BB01- F0 08     BEQ $BB0B
  412. BB03- B1 FC     LDA ($FC),Y
  413. BB05- 91 FE     STA ($FE),Y
  414. BB07- C8        INY
  415. BB08- CA        DEX
  416. BB09- D0 F8     BNE $BB03
  417. BB0B- 60        RTS
  418. BB0C- E9 02     SBC #$02
  419.